for (i in 1:length(unique(FRAME$trial))){
  plot_observer(FRAME,1,i)
  
}